IsLeapYear

IsLeapYear(date)

Description:
Returns true if date is in a leap year, and false otherwise.

Parameter Description

date: A valid date string or date variable

Example:

Sub Main
If IsLeapYear (Now()) Then
MsgBox "This is a leap year"
Else
MsgBox "This is not a leap year"
End Sub